home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / dist / scripts / rufus / tausch1.ruf
Encoding:
Text File  |  1997-10-26  |  5.7 KB  |  307 lines
  1. # Alle Variablen stehen am Anfang des Batches und mssen angepažt werden.
  2. # Evtl. noch "Maus Dsseldorf" durch die Heimatmaus ersetzen. Achtung:
  3. # der String nach "dial" (hier: "Maus Dsseldorf") muž in der RUFUS.RTL als
  4. # Boxname der Heimatmaus eingetragen sein, sonst kann RUFUS nicht w„hlen ;-)
  5. # Alle Batchausgaben in das Terminalfenster beginnen mit einem "+"-Zeichen!
  6. # Pfade mssen in RUFUS.RUF richtig gestellt sein!
  7. #
  8. clr
  9. # Buffer l”schen und initialisieren, Pfade setzen
  10. # (kommt unten bei "save..." nochmal vor!!)
  11. clear
  12. user="Rainer Uhser"
  13. pass="geheim"
  14. max_ncs=5
  15. buffersize=100
  16. bufpath="G:\CAT\DATABASE\"
  17. buffername="G:\CAT\DATABASE\TERMINAL.LOG"
  18. buffer=ON
  19. savefull=ON
  20. warnfull=ON
  21. append=ON
  22. wrap=on
  23. print
  24. print "         MausTausch-Batch v2.3 vom 30.12.92 von Marcel Sieling"
  25. print "               based on Tauschbatch v1.21 by Dirk Steins"
  26. print "                             ESC bricht ab!"
  27. print
  28. #
  29. # Wahlwiederholung ausschalten, das machen wir selbst. ;-)
  30. REPEAT=OFF
  31. # Mitloggen des W„hlvorganges ausschalten (uninteressant)
  32. BUFFER=OFF
  33. print
  34. print "+ Maustausch mit Maus Dsseldorf"
  35. log "Automatischer Maustausch gestartet!"
  36. print
  37. # Variablen initialisieren
  38. calls=0
  39. fehler=0
  40. no_cs=0
  41. #
  42. # Modem Initialisierung
  43. #
  44. send "ATZ"
  45. rwait 3000,"OK"
  46. if status<>0 then 69
  47. wait 1000
  48. print
  49. print
  50. # Maus Dsseldorf anw„hlen
  51. 1:
  52. wait 100
  53. calls=calls+1
  54. print "+ Versuch Nr. ";
  55. print calls
  56. #
  57. # Hier den gewnschten Mausnamen eintragen.
  58. # Der Name muž exakt so wie in der Rufus Telefon-Liste eingetragen werden!
  59. #
  60. dial "D   M  Dsseldorf"
  61. if status=0 then 9
  62. if status=1 then 2
  63. if status=2 then 3
  64. if status=3 then 4
  65. buffer=on
  66. print "+ Maus Dsseldorf: unbekannter Fehler, Batch abgebrochen!"
  67. fehler=1
  68. goto 99
  69. #
  70. # BUSY
  71. #
  72. 2:
  73. #print "+ Maus Dsseldorf: Busy"
  74. #
  75. # Bei Modems ohne Wahlwiederholungs-Sperre die folgenden
  76. # Wait-Statements nach Bedarf l”schen
  77. #
  78. wait 5000
  79. print ".";
  80. wait 5000
  81. print ".";
  82. wait 5000
  83. print ".";
  84. wait 5000
  85. print ".";
  86. wait 5000
  87. print ".";
  88. wait 5000
  89. print ".";
  90. goto 1
  91. #
  92. # NO CARRIER 
  93. #
  94. 3:
  95. buffer=on
  96. no_cs=no_cs+1
  97. print "+ Maus Dsseldorf: No Carrier Nr. ";
  98. print no_cs;
  99. print ", max. ";
  100. print max_ncs
  101. if no_cs >= max_ncs then 68
  102. goto 1
  103. #
  104. # allgemeiner Fehler (?)
  105. #
  106. 4:
  107. buffer=on
  108. #print "+ Maus Dsseldorf: Error"
  109. goto 1
  110. #
  111. # CONNECT (Yipiee!)
  112. #
  113. 9:
  114. BUFFER=ON
  115. print "+ Maus Dsseldorf: Connect nach ";
  116. print calls;
  117. print " W„hlversuchen. Einloggen..."
  118. # Auf erste Frage warten
  119. rwait 30000,"Benutzer"
  120. if status<>0 then 70
  121. # wait 200
  122. send "j";
  123. # 30 Sekunden auf zweite Eingabe-Aufforderung warten
  124. rwait 30000,"Name"
  125. if status<>0 then 71
  126. # wait 200
  127. send user
  128. rwait 5000,"Password"
  129. if status<>0 then 71
  130. # wait 200
  131. send pass
  132. # auf Hauptmenu warten
  133. rwait 20000,"Hauptmen","Eingabe"
  134. if status<>0 then 72
  135. wait 1000
  136. print
  137. print "+ Nach einer Sekunde beginnt der MausTausch, Esc zum Abbrechen!"
  138. wait 100
  139. print ".";
  140. wait 100
  141. print ".";
  142. wait 100
  143. print ".";
  144. wait 100
  145. print ".";
  146. wait 100
  147. print ".";
  148. wait 100
  149. print ".";
  150. wait 100
  151. print ".";
  152. wait 100
  153. print ".";
  154. wait 100
  155. print ".";
  156. wait 100
  157. print "auf geht's!"
  158. # Maustausch anw„hlen
  159. # wait 1000
  160. send "T";
  161. # auf Protokoll-Anforderung warten
  162. rwait 20000,"Proto"
  163. if status<>0 then 73
  164. # Z-Modem als Protokoll
  165. # wait 1000
  166. send "Z";
  167. # eine halbe Sekunde warten
  168. wait 500
  169. # Infile senden
  170. print "+ Infile senden"
  171. print
  172. upload "INFILE.ZIP"
  173. if status<>0 then 74
  174. #
  175. # Warten auf Outfile
  176. # maximal 8 Minuten warten (nach Bedarf und Schnelligkeit der Maus anpassen)
  177. #
  178. rwait 480000,"Protokoll startet"
  179. if status<>0 then 75
  180. # Ohne Dateinamen, der kommt per Z-Modem
  181. download
  182. # Auf Menu-Aufbau warten...
  183. rwait 10000,"Hauptmen","Eingabe"
  184. wait 1000
  185. 80:
  186. print
  187. print "+ Batch beendet, 10 s: Escape fr weitere Aktionen in der Box..."
  188. wait 1000
  189. print "+ 9, ";
  190. wait 1000
  191. print "8, ";
  192. wait 1000
  193. print "7, ";
  194. wait 1000
  195. print "6, ";
  196. wait 1000
  197. print "5, ";
  198. wait 1000
  199. print "4, ";
  200. wait 1000
  201. print "3, ";
  202. wait 1000
  203. print "2, ";
  204. wait 1000
  205. print "1, ";
  206. wait 1000
  207. print
  208. print "+ und tschss! ;-)"
  209. # nun Ausloggen
  210. send "S";
  211. rwait 10000,"wirklich aufh”ren"
  212. wait 1000
  213. send "J";
  214. # auf NO CARRIER warten
  215. rwait 10000,"NO CARRIER"
  216. # Noch DTR runterziehen und damit sicher auflegen
  217. wait 1000
  218. dtr=off
  219. wait 1000
  220. dtr=on
  221. # und nun tsch”””
  222. # Fehlerfreies Ende:
  223. 99:
  224. if fehler=1 then 98
  225. log "Maustausch erfolgreich beendet."
  226. wait 1000
  227. # Buffer als Terminal-Log sichern
  228. print "+ Buffer sichern..."
  229. save buffername
  230. quit
  231.  
  232. 98:
  233. log "Fehler aufgetreten..."
  234. # Buffer als Terminal-Log sichern
  235. print "+ Buffer sichern..."
  236. save buffername
  237. # Buffer l”schen, damit er nicht zweimal gespeichert wird...
  238. clear
  239. #
  240. # Standard-Werte aus RUFUS.RUF wieder einstellen
  241. #
  242. BUFPATH="G:\RUFUS\BUFFERS\"
  243. BUFFERNAME="%m%d%H%M.TXT"
  244. BUFFER=ON
  245. SAVEFULL=ON
  246. WARNFULL=ON
  247. APPEND=ON
  248. print
  249. print
  250. print "+ Es ist ein Fehler aufgetreten, bitte im Log Nachsehen!"
  251. end
  252.  
  253. # --------- Fehler-Routinen ----------------
  254. 68:
  255. print
  256. print "+ Zuviele NO CARRIERS..."
  257. print
  258. fehler=1
  259. goto 98
  260. 69:
  261. print
  262. print "+ Das Modem antwortet auf den Reset nicht..."
  263. print
  264. fehler=1
  265. goto 98
  266. 70:
  267. print
  268. print "+ Fehler in der Maus: Keine Frage nach Benutzer!"
  269. print
  270. fehler=1
  271. goto 99
  272. 71:
  273. print
  274. print "+ Fehler in der Maus: Keine Frage nach Namen bzw. Password!"
  275. print
  276. fehler=1
  277. goto 99
  278. 72:
  279. print
  280. print "+ Fehler in der Maus: Hauptmenu kommt nicht!"
  281. print
  282. fehler=1
  283. send "Z";
  284. goto 80
  285. 73:
  286. print
  287. print "+ Fehler in der Maus: Protokollanforderung kommt nicht!"
  288. print
  289. fehler=1
  290. send "Z";
  291. goto 80
  292. 74:
  293. print
  294. print "+ Fehler bei der šbertragung: Infile nicht gesendet!"
  295. print
  296. fehler=1
  297. send "Z";
  298. goto 80
  299. 75:
  300. print
  301. print "+ Fehler in der Maus: OUTFILE kam nach 8 min nicht :-("
  302. print
  303. fehler=1
  304. send "Z";
  305. goto 80
  306.  
  307.